perm filename TRPT[MUS,LCS] blob sn#063097 filedate 1974-01-08 generic text, type T, neo UTF8
06700	ARRAY F1,F2(512); <F1 WILL BE DEFINED BY SCORE.
06800	SYNTH(F2);1 1 999;
06810	SEG(F1);0 1 1 3 .6 7 .6 90 0 100;
06900	COMPILE;
07000	INSTRUMENT TRPT; 
07100	OSCIL(P4,MAG/P2,P5);<P9 IS DUR. OF ENV.           
07200	INTRP(P6*P8*MAG,P7*P8*MAG,P5); <P6 AND P7 ARE MOD. INDEX 1 AND 2
07300	COSCIL(U2,P8*MAG,F2); <P8 IS MOD. FREQ.
07400	COSCIL(U1,P3*MAG+U3,F2); 
07500	OUTA←OUTA+U4;END;
07600	FINISH;
07800	PLAY;TRPT 0 .2 A 2000 F1 .5 6 G;FINISH;